home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / SGTSL.z / SGTSL
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. SSSSGGGGTTTTSSSSLLLL((((3333FFFF))))                                                            SSSSGGGGTTTTSSSSLLLL((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      SGTSL   - SGTSL given a general tridiagonal matrix and a right hand side
  10.      will find the solution.
  11.  
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  14.       SUBROUTINE SGTSL(N,C,D,E,B,INFO)
  15.  
  16. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  17.      On Entry
  18.  
  19.      NNNN INTEGER
  20.         is the order of the tridiagonal matrix.
  21.  
  22.      CCCC REAL(N)
  23.         is the subdiagonal of the tridiagonal matrix.
  24.         C(2) through C(N) should contain the subdiagonal.
  25.         On output, C is destroyed.
  26.  
  27.      DDDD REAL(N)
  28.         is the diagonal of the tridiagonal matrix.
  29.         On output, D is destroyed.
  30.  
  31.      EEEE REAL(N)
  32.         is the superdiagonal of the tridiagonal matrix.
  33.         E(1) through E(N-1) should contain the superdiagonal.
  34.         On output, E is destroyed.
  35.  
  36.      BBBB REAL(N)
  37.         is the right hand side vector.  On Return
  38.  
  39.      BBBB is the solution vector.
  40.  
  41.      IIIINNNNFFFFOOOO INTEGER
  42.         = 0 normal value.
  43.         = K if the K-th element of the diagonal becomes
  44.         exactly zero.  The subroutine returns when
  45.         this is detected.  LINPACK.  This version dated 08/14/78 .  Jack
  46.      Dongarra, Argonne National Laboratory.  No externals Fortran ABS
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.